knitr::opts_chunk$set(echo = TRUE, message = FALSE, error = FALSE, warning = FALSE)

My meme

My Motives

The creation of my meme is inspired from the The original meme here, where a professional doctor diagnoses his client with a light cause.

I wanted to re-create this meme as I remember my friend sending me this through Instagram, then heavily admiring and laughing at this creation. It didn’t take a lot of time for me to think of what I wanted to make when I heard that I was assigned a meme production project; I instantly dedicated in re-creating this meme.

What’s Different?

A lot of its elements from the original meme remains the same, but I had great fun using the code to re-create it using the functions I’ve never used before. What’s mostly different is that I’ve substituted the images from the original with what I’ve selected that gives a completely different view from the original meme; I believe that the greatest difference between the images used in mine and the original meme is the facial expression of the doctor, switching from a lively ambiance to a serious one.

library(magick)


## Images ##
consult = image_scale(image_read("https://www.shutterstock.com/image-photo/medicine-healthcare-people-concept-smiling-260nw-778662295.jpg"),500)
result = image_scale(image_read("https://elements-video-cover-images-0.imgix.net/files/3595669a-1776-49d4-beb3-dd0f3e40cefa/inline_image_preview.jpg?auto=compress%2Cformat&fit=min&h=394&w=700&s=9397bdd1d6bedc4d49772da0b2e5e9d6"),500)
docs = image_scale(image_read("https://i.kym-cdn.com/entries/icons/original/000/032/279/Screen_Shot_2019-12-30_at_11.26.24_AM.png"),500)
docs2 = image_scale(image_read("https://media.istockphoto.com/id/1044298770/photo/young-handsome-doctor-man-over-isolated-background-pointing-fingers-to-camera-with-happy-and.jpg?s=612x612&w=0&k=20&c=qE60McN8ic6AZ7-dTL1yVloYSqh9hLeZeaXsDsn3j4I="), 500)

doctors2 = image_annotate(image_negate(docs2), "*Doktors*", size = 40, color = "white", boxcolor = "darkblue",
                   degrees = 360, location = "+1+150")


## Texts ##
consult.txt = image_blank(width = 500, 
            height = 334, 
            color = "#cceeff") %>% 
  image_annotate(text = "I think i've broken a bone.",
                 color = "#000000",
                 size = 20,
                 font = "Impact",
                 gravity = "center")


result.txt = image_blank(width = 500, 
            height = 280, 
            color = "#cceeff") %>% 
  image_annotate(text = "No, It's your imagination. \nThat'll be $150.",
                 color = "#000000",
                 size = 20,
                 font = "Impact",
                 gravity = "center")

## All put together ##
consulting = c(consult, consult.txt)
results = c(result, result.txt)
doctors = c(docs, doctors2)

a = image_append(consulting)
b = image_append(results)
c = image_append(doctors)

meme = image_append(c(a, b, c ), stack = TRUE)
image_write(meme, "my_meme.png")

My animated GIF

Similar to “my meme image”, I’ve kept some of the elements from original memes to create my own Gif. Regardless, I believe I’ve created something anew.

The idea came from whenever I spend my days with some of my friends who would always ask me or vice versa, what we want to do or eat. And this always results for the both of us spending all of our limited time in thinking of what we want to do or where and what we want to eat.

library(magick)



# Frames 

frame1 <- image_scale(image_read("1.png"),500) %>%
  image_annotate(text = " What do you \n want to do now?",  location = "+1+125", size = 19) %>%
  image_annotate(text = "...",  location = "+275+100", size = 60)

frame2 <- image_scale(image_read("2.png"),500)
frame3 <- image_scale(image_read("3.png"),500)
frame4 <- image_scale(image_read("4.png"),500)
frame5 <- image_scale(image_read("5.png"),500)


# putting the frames in order using concatenation 
frames = c(frame1, frame2, frame3, frame4, frame5)

# creating an animation
my.gif = image_animate(frames, fps = 0.5)
image_write(my.gif, "my_animation.gif")

@import url('https://fonts.googleapis.com/css2?family=Climate+Crisis&family=Rubik+Iso&display=swap')  ;body {font-family: 'Climate Crisis', cursive; font-family: 'Rubik Iso', cursive; color:  #ff99ff; background-image: url("https://i.pinimg.com/originals/88/15/63/881563d6444b370fa4ceea0c3183bb4c.gif");}
 
.columns{display : flex; }
h1,h2 {color: #c44dff ; text-align: center;}

@import url('https://fonts.googleapis.com/css2?family=Climate+Crisis&family=Crimson+Text&family=Rubik+Iso&display=swap'); p{font-family: 'Climate Crisis', cursive; font-family: 'Crimson Text', serif; font-family: 'Rubik Iso', cursive; font-family: 'Slabo 27px', serif; font-size: 18px; font-weight: bold;  background-color:#000;color: #fff; padding = 50px}